From 7135dfabd755ec1dcedda61bc214a545046d1d8e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 18 Jul 2009 17:17:20 +0000 Subject: [PATCH] Revert last change in the branch. --- lisp/gnus/nnmaildir.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el index 628b4c5d2a2..65f93f8e06d 100644 --- a/lisp/gnus/nnmaildir.el +++ b/lisp/gnus/nnmaildir.el @@ -270,8 +270,8 @@ by nnmaildir-request-article.") (setq attr (file-attributes (concat dir (number-to-string number-linked)))) (or attr (throw 'return (1- number-linked))) - (unless (equal ino-opened (nth 10 attr)) - (setq number-opened number-linked)))))) + (if (/= ino-opened (nth 10 attr)) + (setq number-opened number-linked)))))) ;; Make the given server, if non-nil, be the current server. Then make the ;; given group, if non-nil, be the current group of the current server. Then @@ -361,9 +361,9 @@ by nnmaildir-request-article.") number-open number-link)) ((nnmaildir--eexist-p err) (let ((attr (file-attributes path-link))) - (unless (equal (nth 10 attr) ino-open) - (setq number-open number-link - number-link 0)))) + (if (/= (nth 10 attr) ino-open) + (setq number-open number-link + number-link 0)))) (t (signal (car err) (cdr err))))))))) (defun nnmaildir--update-nov (server group article) @@ -744,7 +744,7 @@ by nnmaildir-request-article.") ls (or (nnmaildir--param pgname 'directory-files) srv-ls)) (unless read-only (setq x (nth 11 (file-attributes tdir))) - (unless (and (equal x (nth 11 nattr)) (equal x (nth 11 cattr))) + (unless (and (= x (nth 11 nattr)) (= x (nth 11 cattr))) (setf (nnmaildir--srv-error nnmaildir--cur-server) (concat "Maildir spans filesystems: " absdir)) (throw 'return nil)) -- 2.30.2